home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mdishe / fusage.frm < prev    next >
Text File  |  1994-12-28  |  5KB  |  170 lines
  1. VERSION 2.00
  2. Begin Form fUsage 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Evaluation copy"
  6.    ClientHeight    =   4125
  7.    ClientLeft      =   3450
  8.    ClientTop       =   1650
  9.    ClientWidth     =   6090
  10.    ForeColor       =   &H00000000&
  11.    Height          =   4530
  12.    Left            =   3390
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4125
  17.    ScaleWidth      =   6090
  18.    Top             =   1305
  19.    Width           =   6210
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Height          =   315
  23.       Left            =   2700
  24.       TabIndex        =   3
  25.       Top             =   3630
  26.       Width           =   795
  27.    End
  28.    Begin Label Label3 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "When you register, you will be supplied with the latest version and..."
  31.       Height          =   645
  32.       Index           =   2
  33.       Left            =   150
  34.       TabIndex        =   4
  35.       Top             =   2700
  36.       Width           =   5805
  37.    End
  38.    Begin Label Label3 
  39.       BackColor       =   &H00C0C0C0&
  40.       Caption         =   "If you find this program useful then you should register.  Details on how to register can be found on the Help menu."
  41.       Height          =   405
  42.       Index           =   0
  43.       Left            =   150
  44.       TabIndex        =   2
  45.       Top             =   2130
  46.       Width           =   5805
  47.    End
  48.    Begin Label Label3 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "This program is supplied on a 'Try before you buy' basis.  Your license for this version allows you thirty days to evaluate it."
  51.       Height          =   465
  52.       Index           =   1
  53.       Left            =   150
  54.       TabIndex        =   6
  55.       Top             =   1530
  56.       Width           =   5805
  57.    End
  58.    Begin Label lblUsed 
  59.       BackColor       =   &H00C0C0C0&
  60.       Caption         =   "You have used this program 99 times."
  61.       Height          =   285
  62.       Left            =   180
  63.       TabIndex        =   5
  64.       Top             =   1080
  65.       Width           =   3525
  66.    End
  67.    Begin Label lblVer 
  68.       Alignment       =   2  'Center
  69.       AutoSize        =   -1  'True
  70.       BackColor       =   &H00C0C0C0&
  71.       Caption         =   "Ver x.x"
  72.       ForeColor       =   &H00000000&
  73.       Height          =   195
  74.       Left            =   120
  75.       TabIndex        =   1
  76.       Top             =   660
  77.       Width           =   5775
  78.    End
  79.    Begin Label lblAppName 
  80.       Alignment       =   2  'Center
  81.       AutoSize        =   -1  'True
  82.       BackColor       =   &H00C0C0C0&
  83.       Caption         =   "App Name"
  84.       FontBold        =   -1  'True
  85.       FontItalic      =   0   'False
  86.       FontName        =   "MS Sans Serif"
  87.       FontSize        =   24
  88.       FontStrikethru  =   0   'False
  89.       FontUnderline   =   0   'False
  90.       ForeColor       =   &H00800000&
  91.       Height          =   555
  92.       Left            =   120
  93.       TabIndex        =   0
  94.       Top             =   60
  95.       Width           =   5790
  96.    End
  97. End
  98. ' ********************************************************
  99. '        MDI Standard Application Shell
  100. ' ********************************************************
  101. '
  102. ' SUMMARY
  103. ' -------
  104. ' This file is part of an MDI application "skeleton"
  105. ' created by John Blessing of Leigh Business Enterprises Ltd.
  106. '
  107. ' FEATURES
  108. ' --------
  109. ' Selection of application database.
  110. ' Compact/Repair of database.
  111. ' 'Helptips' on toolbar items.
  112. ' Support for Help files.
  113. ' MDI child forms tiling etc.
  114. ' Error trapping.
  115. ' 'Nag' screen support for shareware authors.
  116. ' Support for 3D dialogs (switched off in design mode
  117. '   to prevent GPFs)
  118. '
  119. ' USE
  120. ' ---
  121. ' You need VB Pro to use this shell, although it could be
  122. ' modified to run under the standard edition.
  123. '
  124. ' You will need to set up some information in APP.BAS,
  125. ' particularly in SetAppInfo().  You will also need to add
  126. ' your own application specific code to this module.
  127. '
  128. ' DISTRIBUTION
  129. ' ------------
  130. ' This program is "FreeWare" and may be used and distributed
  131. ' as you wish.
  132. '
  133. ' It incorporates some ideas/code from other authors and these
  134. ' are acknowledged in the appropriate module.
  135. '
  136. ' We hope that you will find it useful.  If you wish to discuss it
  137. ' then please e-mail us on Compuserve 100444,623.
  138. '
  139. ' ADVERTISEMENT!
  140. ' --------------
  141. ' Are you looking for a helpdesk system? Or does your company
  142. ' want to track and monitor the progress of any work activity?
  143. ' We market a system which could be of interest to you.
  144. '
  145. ' PROGRESS is available for download from the Business section
  146. ' of the Windows Shareware forum on Compuserve
  147. ' (filename PRGRSS10.ZIP).  It's a large program, so in the
  148. ' same section you will also find the help files and
  149. ' documentation as  PRGSSDOC.ZIP which is quicker to download
  150. ' and will give you a good idea of the functionality of PROGRESS.
  151. '
  152. ' Dec 1994
  153. Option Explicit
  154.  
  155. Sub Command1_Click ()
  156.     Unload Me
  157. End Sub
  158.  
  159. Sub Form_Load ()
  160.     
  161.     lblVer.Caption = "Ver " & CStr(tGApp.dVersion)
  162.     lblAppName = tGApp.sName
  163.     centre Me, mdiMain
  164. End Sub
  165.  
  166. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  167.             KeepOnTop Me, False
  168. End Sub
  169.  
  170.